﻿Imports System.Globalization
Imports Microsoft.VisualStudio.TestTools.UnitTesting

<TestClass>
Public Class SpeechHResultsTest

#Region "CreateException"
    <TestMethod>
    Public Sub GetCodeByHResult_HResultExists_SPERR_RECOERROR_NOSPEECH()
        Dim hrTest = SpeechHResults.SPERR_RECOERROR_NOSPEECH

        Dim actual = SpeechHResults.GetCodeByHResult(hrTest)

        Assert.IsNotNull(actual)
        Assert.AreEqual(actual, "SPERR_RECOERROR_NOSPEECH")
    End Sub

    <TestMethod>
    Public Sub GetCodeByHResult_HResultNotExists()
        Dim hrTest = -10000

        Dim actual = SpeechHResults.GetCodeByHResult(hrTest)

        Assert.IsNull(actual)
    End Sub
#End Region


   
End Class
